home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
txl
/
rexxmdl2.lha
/
RexModula2
/
Table.rmi
< prev
Wrap
Text File
|
1992-02-26
|
402b
|
27 lines
MODULE Table;
FROM XdrM2_Table IMPORT tAck, tReq;
IMPORT InOut;
CONST
Size = 5;
VAR
sitting: INTEGER;
ok: tAck;
req: tReq;
BEGIN
sitting := 0;
LOOP
SELECT
sitting > 0 && ACCEPT(leave,req) :
REPLY(leave,ok);
DEC(sitting);
| sitting < ( Size - 1 ) && ACCEPT(sit,req) :
REPLY(sit,ok);
INC(sitting);
END;
END;
END Table.